home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 1.iso / ARGONET / PD / GAMES / ARCELITE.ZIP / !élite / Loader (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1998-09-28  |  1KB  |  45 lines
  1.  Automatic Elite modifed run
  2.  By Richard Goodwin (richard@goodwin.uk.com)
  3.  for Acorn Arcade, http://www.acornarcade.com/
  4.  block% 256
  5.  "Wimp_Initialise",200,&4B534154,"Elite loader" 
  6.  ,taskhandle
  7. "OS_GetEnv" 
  8.  commander$
  9.     *instr%=
  10. lower(commander$),"loader""")
  11. $commander$=
  12. commander$,instr%+8)
  13.  SYS"OS_Byte",0,1 TO ,os%
  14. "OS_Byte",129,0,&FF 
  15.  ,os%
  16.  os%>&A4 
  17. "XOS_CLI","RMLoad <Elite$Dir>.Mods.!rjw_Sync.rjw_Sync"
  18.  os%<=&A4 
  19.  "Do you have a high resolution monitor (y/n)?";
  20.      A$=
  21. "YyNn",A$)>0
  22. "Yy",A$)>0 
  23. "XOS_CLI","RMLoad <Elite$Dir>.Mods.!rjw_Sync.rjw_Sync"
  24.  os%>=&A7 
  25. "XOS_CLI","Cache off"
  26. "OS_CLI","WimpTask Run <Elite$Dir>.MainRun "+commander$
  27.  os%>=&A7 
  28. "XOS_CLI","Cache ON"
  29. $(block%)="TASK"
  30. "Wimp_CloseDown",taskhandle,!block%
  31. lower(lower$)
  32.  lowerloop%,templower$,char%
  33.  lower$="" =""
  34. templower$=""
  35.  lowerloop%=1 
  36. (lower$)
  37. 0# char%=
  38. lower$,lowerloop%,1))
  39.  char%>=65 
  40.  char%<=90 char%+=32
  41.  templower$+=
  42. (char%)
  43.  lower$,templower$
  44. =lower$
  45.